﻿Imports System.Collections.ObjectModel
Imports System.Windows.Input

''' <summary>
''' Représente un item actionnable depuis une vue et contenant un sous-ensemble d'items actionnables également
''' </summary>
''' <remarks></remarks>
Public Class ViewModelCommandGroup
    Inherits ViewModelCommand

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New(ByVal displayName As String, ByVal command As ICommand, ByVal viewModelCommandChild As ObservableCollection(Of ViewModelCommand))
        MyBase.New(displayName, command)
        Me.ViewModelCommandChilds = viewModelCommandChild
    End Sub

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()

    End Sub

    Private _ViewModelCommand As New ObservableCollection(Of ViewModelCommand)
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Property ViewModelCommandChilds() As ObservableCollection(Of ViewModelCommand)
        Get
            Return _ViewModelCommand
        End Get
        Private Set(ByVal value As ObservableCollection(Of ViewModelCommand))
            _ViewModelCommand = value
        End Set
    End Property
End Class
